home *** CD-ROM | disk | FTP | other *** search
/ Collection of Tools & Utilities / Collection of Tools and Utilities.iso / basic / dialogic.zip / DIALOG3.DB < prev    next >
Encoding:
Text File  |  1990-01-31  |  2.6 KB  |  78 lines
  1. DB(Level%, 1).Code = 1
  2. DB(Level%, 1).Y = 0
  3. DB(Level%, 1).X = 0
  4. DB(Level%, 1).Height = 19
  5. DB(Level%, 1).Wdth = 65
  6. DB(Level%, 1).BorderType = -1
  7. DB(Level%, 1).PrimaryColor = -c1
  8. DB(Level%, 1).WindowColor = -c1
  9. DB(Level%, 1).Text = "Text Boxes"
  10. DB(Level%, 1).TextColor = c2
  11. DB(Level%, 1).SecondaryColor = c1
  12.  
  13. LB(1).Text = "The text box is shown below.  It is operates EXACTLY like"
  14. LB(2).Text = "Microsoft's.  It is the dialog box element which gathers"
  15. LB(3).Text = "free-form text data from the user.  It supports full"
  16. LB(4).Text = "editing.  There is an insert/overtype toggle with the"
  17. LB(5).Text = "<Ins>ert key.  <Del>ete,  <Backspace>,  <Home>,  <End>,"
  18. LB(6).Text = "<Ctrl><PgUp>,  <Ctrl><PgDn>,  and left/right arrow keys"
  19. LB(7).Text = "are fully-functional.  Text may be selected using the"
  20. LB(8).Text = "<Shift> key in combination with the directional keys."
  21. LB(9).Text = "Also, a text box may accept more characters than its "
  22. LB(10).Text = "width since characters are scrolled when needed."
  23. LB(11).Text = " "
  24. LB(12).Text = "Please take some time to experiment with the text box."
  25. LB(13).Text = "the words " + CHR$(34) + "Dialog Software" + CHR$(34) + " have been placed in it to"
  26. LB(14).Text = "demonstrate that a default edit string may be present. "
  27.      
  28. DB(Level%, 2).Code = 3
  29. DB(Level%, 2).Y = 2
  30. DB(Level%, 2).X = 2
  31. DB(Level%, 2).Height = 10
  32. DB(Level%, 2).Wdth = 1
  33. DB(Level%, 2).WindowColor = c1
  34. DB(Level%, 2).PrimaryColor = c1
  35. DB(Level%, 2).SecondaryColor = c2
  36. DB(Level%, 2).SelectedColor = -1
  37. DB(Level%, 2).StarColor = c1
  38. DB(Level%, 2).ItemLength = 60
  39. DB(Level%, 2).KeyColor = 0
  40. DB(Level%, 2).BorderType = 2
  41. DB(Level%, 2).Link = 0
  42. DB(Level%, 2).TextY = 0
  43. DB(Level%, 2).TextX = 0
  44. DB(Level%, 2).TextColor = c1
  45. DB(Level%, 2).NumberOne = 1
  46. DB(Level%, 2).NumberTwo = 13
  47. DB(Level%, 2).Default = 0
  48.  
  49. DB(Level%, 3).Code = 2
  50. DB(Level%, 3).Y = 14
  51. DB(Level%, 3).X = 13
  52. DB(Level%, 3).Wdth = 50
  53. DB(Level%, 3).BorderType = 1
  54. DB(Level%, 3).PrimaryColor = c1
  55. DB(Level%, 3).WindowColor = c1
  56. DB(Level%, 3).SelectedColor = c3
  57. DB(Level%, 3).TextY = 15
  58. DB(Level%, 3).TextX = 3
  59. DB(Level%, 3).Text = "~Text Box:"
  60. DB(Level%, 3).TextColor = c1
  61. DB(Level%, 3).KeyColor = c4
  62. DB(Level%, 3).TextString = "Dialog Software"
  63. DB(Level%, 3).ItemLength = 100
  64.  
  65. DB(Level%, 4).Code = 7
  66. DB(Level%, 4).Y = 18
  67. DB(Level%, 4).X = 30
  68. DB(Level%, 4).Text = "~OK"
  69. DB(Level%, 4).PrimaryColor = c1
  70. DB(Level%, 4).WindowColor = c1
  71. DB(Level%, 4).SelectedColor = c3
  72. DB(Level%, 4).KeyColor = c4
  73. DB(Level%, 4).SecondaryColor = c4
  74. DB(Level%, 4).TextString = CHR$(13)
  75.  
  76. DB(Level%, 5).Code = 0
  77.  
  78.